home *** CD-ROM | disk | FTP | other *** search
- #include "../h/gsupport.h"
- #include "../h/version.h"
-
- extern char *progname;
-
- novalue id_comment(f)
- FILE *f;
- {
- static char sbuf[26];
- static first_time = 1;
-
- if (first_time) {
- first_time = 0;
- getctime(sbuf);
- }
- fprintf(f, "/*\n");
- fprintf(f, " * %s", sbuf);
- fprintf(f, " * This file was produced by\n");
- fprintf(f, " * %s: %s\n", progname, Version);
- fprintf(f, " */\n");
- }
-